home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
t3_1
/
xlib.lha
/
xlib
/
test.t
< prev
next >
Wrap
Text File
|
1990-06-07
|
522b
|
14 lines
(herald test)
(DEFINE-FOREIGN XLOADQUERYFONT*
("XLoadQueryFont" (IN REP/C-POINTER) (IN REP/STRING))
REP/extend)
(DEFINE (XLOADQUERYFONT DPY NAME)
(LET* ((DPY (CHK-DISPLAYP DPY))
(NAME (IF (STRING? NAME)
(STRING->ASCIZ! NAME)
(ERROR "Argument is incorrect type: ~s" NAME)))
(RETURN-VALUE (CONS 'XFONTSTRUCTP
(XLOADQUERYFONT* DPY NAME))))
RETURN-VALUE))